home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / util / misc / ftransd_2_1a.lha / FTransD_2.1a / ARexx-Scripts / FTransFW.rexx < prev    next >
OS/2 REXX Batch file  |  1995-07-15  |  2KB  |  79 lines
  1. /*  $VER: FTransFW.rexx 1.2 (Jun  5 1995)
  2.  *
  3.  *  Script um in Finalwriter ein Wort einzufⁿgen.
  4.  *
  5.  *  V1.2 - ARexx-Port-Name fⁿr FTrans V1.7 geΣndert. LockGUI/UnlockGUI
  6.  *         neu hinzu.
  7.  *
  8.  *  Beispiel Arexx-Script fⁿr das Arexx-Interface von FTrans und
  9.  *  der Textverarbeitung Finalwriter.
  10.  *  Copyright (c) 1994 by Rainer Hess.
  11.  *
  12.  *  Script-Installation in Finalwriter:
  13.  *
  14.  *   1.WΣhlen Sie im Menⁿ <Projekt> <Voreinstellungen/Benutzerbefehlsleiste>
  15.  *     aus.
  16.  *   2.Im nun neu ge÷ffneten Fenster mⁿssen Sie die Befehlsleiste auswΣhlen
  17.  *     (evtl. 2).
  18.  *   3.Nun ziehen Sie aus der Reihe Schalter ein passendes Icon in die
  19.  *     mittlere Listbox; z.B. das Icon "F".
  20.  *   4.Als "Typ" mⁿssen Sie ARexx-Script einstellen. (recht oben)
  21.  *   5.Nun selektieren Sie "AuswΣhlen" und wΣhlen diese Datei
  22.  *   ("FTransFW.rexx") aus.
  23.  *   6. Nun selektieren Sie "sichern".
  24.  *
  25.  *   Es mⁿ▀te nun ein neues Icon in der Befehlsleiste zu finden sein.
  26.  *   Drⁿcken Sie hierzu oben rechts auf den Pfeil. Um die Anpassung
  27.  *   nun zu testen.
  28.  *
  29.  *  -> Beachten Sie, da▀ die Programme FTrans und RexxMast aktiv
  30.  *     sein mⁿssen.
  31.  */
  32.  
  33. options results
  34.  
  35. /*
  36.  * LΣuft Ftrans mit ARexx-Port "FTRANS.1"?
  37.  */
  38.  
  39. ok = show("P","FTRANS.1")
  40. if ok = 0 then do
  41.    ShowMessage 1 1 '"Entschuldigung, das Programm FTrans" "mit Arexx-Port FTRANS.1 lΣuft nicht!" "" " Abbruch   " "" ""'
  42.    exit 0
  43. end
  44.  
  45. /* Falls das markierte Wort in Finalwriter direkt ersetzt werden
  46.  * soll so ist "RequestText ...(Text..." durch "Extract" ersetzen.
  47.  */
  48.  
  49. RequestText '"FTrans FinalWriter ARexx Script" "Bitte ein Wort zum ⁿbersetzen eingeben"'
  50. UebergabeWort = result
  51.  
  52. if UebergabeWort = -1 then do
  53.   exit 0
  54. end
  55.  
  56. /*
  57.  * FTrans Arexx-Port aktivieren.
  58.  */
  59.  
  60. address 'FTRANS.1'
  61.  
  62. LockGUI            /* GUI von FTrans sperren                         */
  63.  
  64. /*
  65.  * FTrans holt das Wort als Argument direkt ab. Wurde das Wort nicht
  66.  * gefunden steht es in den geschweiften Blockklammern { und }.
  67.  */
  68.  
  69. WortArg UebergabeWort
  70. TranslateWort = result
  71.  
  72. UnlockGUI        /* Und GUI von FTrans wieder freigeben            */
  73.  
  74. address            /* Adresse Final-Writer                           */
  75. FindCursor        /* Cursorpostition zeigen - nicht unbeding n÷tigt */
  76. Type TranslateWort    /* Bei Cursorposition Wort einfⁿgen               */
  77.  
  78. exit 0
  79.